Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Enumerate  Backups  

 Content of Enumerate Backups.vbs
MD5 Hash: F13F1A523667B69DCADFCB48C0E3D089
' Description: Returns information about all the IIS backup files on a computer.


On Error Resume Next

Const MD_BACKUP_NO_MORE_BACKUPS = &H80070103

strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "")
intIndex = 0

Do While True
strName = ""
objIIS.EnumBackups strName, intIndex, strVersion, _
strLocation, strDateTime
If (Err.Number <> 0) Then
If (Err.Number = MD_BACKUP_NO_MORE_BACKUPS) Then
Exit Do
End If
End If

WScript.Echo "Name: " & strName
Wscript.Echo "Version Number: " & strVersion
Wscript.Echo "Backup Location: " & strLocation
Wscript.Echo "Backup Date: " & strDateTime
Wscript.Echo

intIndex = intIndex + 1
Loop

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a